TOP

Sentence Case Função para LibreOffice Calc

SENTENCECASE() Descrição

A função SENTENCECASE() foi projetada para converter texto existente em formato de frase e retorna um conjunto de palavras no formato: "Sentence case function" .

Sentence Case quebra linhas separadas por pontos, pontos de exclamação ou pontos de interrogação em frases separadas. Em seguida, converte todas as palavras para minúsculas, exceto a primeira letra da frase, e então combina todos os elementos em um texto contínuo.

A função SENTENCECASE() pode ser útil para corrigir maiúsculas e minúsculas em frases ao longo do texto.

StarBASIC Código para SENTENCECASE()

Aqui está o código de macro para criar uma função personalizada que pode justificar palavras em frases (Sentence Case) em LibreOffice Calc.

Abra o menu Tools - Macros - Edit Macros..., selecione Module1 e copie o seguinte texto no módulo:

Function SentenceCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim sentences As Variant
  Dim i         As Integer
  Dim FCalc     As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")    
  
  str = Replace(str,"-"," ")
  str = Replace(str,"_"," ")
  str = FCalc.callFunction("TRIM", Array(str))
  str = LCase(str)
  str = FCalc.callFunction("REGEX", Array(str,"([.!?])(\s)(\w)","$1#$3","g"))
  
  sentences = Split(str, "#")
    
  For i = LBound(sentences) To UBound(sentences)       
    sentences(i) = UCase(Left(sentences(i), 1)) & Mid(sentences(i), 2)       
  Next i
    
  SentenceCase = Join(sentences," ")
End Function

Em seguida, feche Macro Editor, retorne para LibreOffice Calc e use nossa nova função em qualquer célula.